home *** CD-ROM | disk | FTP | other *** search
- object MapParametersDialog: TMapParametersDialog
- Left = 300
- Top = 173
- AutoSize = True
- BorderStyle = bsDialog
- Caption = 'Map Parameters'
- ClientHeight = 242
- ClientWidth = 425
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Button1: TButton
- Left = 93
- Top = 217
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object Button2: TButton
- Left = 173
- Top = 217
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object Button3: TButton
- Left = 253
- Top = 217
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 2
- OnClick = Button3Click
- end
- object GroupBox1: TGroupBox
- Left = 0
- Top = 0
- Width = 241
- Height = 209
- Caption = 'Map Size Definition'
- TabOrder = 3
- object SpacingLabel: TLabel
- Left = 8
- Top = 16
- Width = 88
- Height = 26
- Caption = 'Grid point spacing (metres): '
- WordWrap = True
- end
- object Label2: TLabel
- Left = 8
- Top = 80
- Width = 88
- Height = 13
- Caption = 'Grid points (x axis):'
- end
- object Label3: TLabel
- Left = 8
- Top = 104
- Width = 88
- Height = 13
- Caption = 'Grid points (y axis):'
- end
- object MapSizeLabel: TLabel
- Left = 112
- Top = 128
- Width = 122
- Height = 13
- Caption = 'MapSize: 999km x 999km'
- end
- object Label8: TLabel
- Left = 176
- Top = 24
- Width = 11
- Height = 13
- Caption = 'y: '
- end
- object Label9: TLabel
- Left = 112
- Top = 24
- Width = 11
- Height = 13
- Caption = 'x: '
- end
- object XSpacingMaskEdit: TFloatEdit
- Left = 128
- Top = 16
- Width = 41
- Height = 21
- TabOrder = 0
- Text = '1.0'
- OnChange = CalculateMapSize
- Digits = 1
- Value = 1.000000000000000000
- Min = 0.100000000000000000
- Max = 9999.900000000000000000
- ErrorMessage = '[No Text]'
- end
- object XMaskEdit: TFloatEdit
- Left = 184
- Top = 72
- Width = 49
- Height = 21
- TabOrder = 1
- Text = '21'
- OnChange = CalculateMapSize
- Digits = 0
- Value = 21.000000000000000000
- Min = 21.000000000000000000
- Max = 99999.000000000000000000
- ErrorMessage = '[No Text]'
- end
- object YMaskEdit: TFloatEdit
- Left = 184
- Top = 96
- Width = 49
- Height = 21
- TabOrder = 2
- Text = '21'
- OnChange = CalculateMapSize
- Digits = 0
- Value = 21.000000000000000000
- Min = 21.000000000000000000
- Max = 99999.000000000000000000
- ErrorMessage = '[No Text]'
- end
- object YSpacingMaskEdit: TFloatEdit
- Left = 192
- Top = 16
- Width = 41
- Height = 21
- TabOrder = 3
- Text = '1.0'
- OnChange = CalculateMapSize
- Digits = 1
- Value = 1.000000000000000000
- Min = 0.100000000000000000
- Max = 9999.900000000000000000
- ErrorMessage = '[No Text]'
- end
- object EqualSpacingCheck: TCheckBox
- Left = 8
- Top = 48
- Width = 161
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Equal spacing (recommended)'
- Checked = True
- State = cbChecked
- TabOrder = 4
- OnClick = EqualSpacingCheckClick
- end
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 152
- Width = 225
- Height = 49
- Caption = 'Defaults'
- TabOrder = 4
- object DefaultCombo: TComboBox
- Left = 88
- Top = 16
- Width = 129
- Height = 21
- ItemHeight = 13
- Items.Strings = (
- 'Vistapro DEM'
- 'UK OS Panorama NTF'
- 'USGS 1 degree DEM')
- TabOrder = 0
- Text = 'Vistapro DEM'
- end
- object SetDefaultButton: TButton
- Left = 8
- Top = 16
- Width = 75
- Height = 25
- Caption = 'Set Default'
- TabOrder = 1
- OnClick = SetDefaultButtonClick
- end
- end
- object GroupBox3: TGroupBox
- Left = 248
- Top = 0
- Width = 177
- Height = 153
- Caption = 'Georeferencing'
- TabOrder = 5
- object Label1: TLabel
- Left = 8
- Top = 48
- Width = 19
- Height = 13
- Caption = 'Top'
- end
- object Label4: TLabel
- Left = 8
- Top = 128
- Width = 25
- Height = 13
- Caption = 'Right'
- end
- object Label5: TLabel
- Left = 8
- Top = 72
- Width = 18
- Height = 13
- Caption = 'Left'
- end
- object Label6: TLabel
- Left = 8
- Top = 104
- Width = 33
- Height = 13
- Caption = 'Bottom'
- end
- object Label7: TLabel
- Left = 8
- Top = 24
- Width = 3
- Height = 13
- end
- object LeftGeoEdit: TFloatEdit
- Left = 56
- Top = 64
- Width = 113
- Height = 21
- Enabled = False
- TabOrder = 0
- Text = '0.0000000'
- Digits = 7
- Min = -99999999.900000000000000000
- Max = 99999999.900000000000000000
- ErrorMessage = '[No Text]'
- end
- object TopGeoEdit: TFloatEdit
- Left = 56
- Top = 40
- Width = 113
- Height = 21
- Enabled = False
- TabOrder = 1
- Text = '0.0000000'
- Digits = 7
- Min = -99999999.900000000000000000
- Max = 99999999.900000000000000000
- ErrorMessage = '[No Text]'
- end
- object BottomGeoEdit: TFloatEdit
- Left = 56
- Top = 96
- Width = 113
- Height = 21
- Enabled = False
- TabOrder = 2
- Text = '0.0000000'
- Digits = 7
- Min = -99999999.900000000000000000
- Max = 99999999.900000000000000000
- ErrorMessage = '[No Text]'
- end
- object RightGeoEdit: TFloatEdit
- Left = 56
- Top = 120
- Width = 113
- Height = 21
- Enabled = False
- TabOrder = 3
- Text = '0.0000000'
- Digits = 7
- Min = -99999999.900000000000000000
- Max = 99999999.900000000000000000
- ErrorMessage = '[No Text]'
- end
- object OverrideGeoCheck: TCheckBox
- Left = 8
- Top = 16
- Width = 161
- Height = 17
- Alignment = taLeftJustify
- Caption = 'Override defaults'
- TabOrder = 4
- OnClick = OverrideGeoCheckClick
- end
- end
- object GroupBox4: TGroupBox
- Left = 248
- Top = 152
- Width = 177
- Height = 57
- Caption = 'Default Height'
- TabOrder = 6
- object NullRadio: TRadioButton
- Left = 8
- Top = 16
- Width = 65
- Height = 17
- Caption = 'Null'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = NullRadioClick
- end
- object HeightRadio: TRadioButton
- Left = 8
- Top = 32
- Width = 97
- Height = 17
- Caption = 'Set all at height'
- TabOrder = 1
- OnClick = HeightRadioClick
- end
- object DefaultHeightFloatEdit: TFloatEdit
- Left = 112
- Top = 28
- Width = 57
- Height = 21
- Enabled = False
- TabOrder = 2
- Text = '0.0'
- Digits = 1
- Max = 9999.900000000000000000
- ErrorMessage = '[No Text]'
- end
- end
- end
-